home *** CD-ROM | disk | FTP | other *** search
/ Extra Heft 12 / Extra Heft12.bin / input64 / 07_87.d64 / kopfrechnen (.txt) < prev    next >
Commodore BASIC  |  1995-08-17  |  4KB  |  157 lines
  1. 100 REM*****KOPFRECHENTRAINER*********
  2. 110 REM
  3. 120 REM     FUER COMMODORE 64/128
  4. 130 REM
  5. 140 REM H.STENDER,HAENDELSTR.8,3160 LEHRTE
  6. 150 REM
  7. 160 REM RECHENUEBUNGSPROGRAMM FUER
  8. 170 REM
  9. 180 REM GRUNDRECHENARTEN
  10. 190 REM
  11. 200 PRINT"[147]"
  12. 210 POKE53280,6:POKE53281,6:N=20
  13. 220 FOR J=1 TO 39:PRINT"[191]";:NEXT:PRINT
  14. 230 FORI=1 TO 20
  15. 240 PRINT"[191]";
  16. 250 PRINTSPC(37)"[191]"
  17. 260 NEXTI
  18. 270 FOR I=1 TO 39:PRINT"[191]";:NEXTI
  19. 280 PRINT"":PRINT:PRINT
  20. 290 PRINT"[191] RECHENUEBUNGSPROGRAMM FUER SCHUELER"
  21. 300 PRINT"[191] -----------------------------------"
  22. 310 PRINT
  23. 320 PRINT"[191] ES WERDEN";N;"AUFGABEN MIT ALLEN"
  24. 330 PRINT"[191] VIER GRUNDRECHENARTEN GESTELLT."
  25. 340 PRINT"[191] DU TIPPST DIE ANTWORT IN DIE TAS-"
  26. 350 PRINT"[191] TATUR UND DANN DIE <RETURN>-TASTE.":PRINT
  27. 360 PRINT"[191] DIE ANTWORTEN WERDEN MIT RICHTIG"
  28. 370 PRINT"[191] ODER FALSCH BEWERTET UND GEZAEHLT."
  29. 380 PRINT"[191] SO KANNST DU SELBST DIE FORTSCHRITTE"
  30. 390 PRINT"[191] SEHEN.":PRINT:PRINT
  31. 400 PRINT"[191] UND UEBRIGENS....VIEL SPASS!!!":PRINT:PRINT
  32. 410 PRINT"[191]       1987 HEINRICH STENDER"
  33. 420 X=10
  34. 430 GOSUB1200
  35. 440 PRINT"[147]":F=0:R=0:C$=" = "
  36. 450 REM-------------------------------
  37. 460 REM                   AUSWAHLMODUL
  38. 470 REM-------------------------------
  39. 480 D0=VAL(LEFT$(TI$,2))*3600+VAL(MID$(TI$,3,2))*60+VAL(RIGHT$(TI$,2))
  40. 490 FOR I=1 TO VAL(RIGHT$(TI$,2))
  41. 500 Z=RND(1)
  42. 510 NEXT I
  43. 520 FOR I=1 TO N
  44. 530 Y=INT(4*RND(1)+1)
  45. 540 ONYGOSUB910,980,1050,1130
  46. 550 Y=INT(4*RND(1)+1)
  47. 560 ONYGOSUB1270,1370,1470,1570
  48. 570 IFC=DTHENR=R+1:PRINT:PRINT:PRINT"RICHTIG":GOTO800
  49. 580 PRINT"[147]FALSCH":F=F+1
  50. 590 PRINT:PRINT"";A;A$;B;C$;C
  51. 600 GOTO 800
  52. 610 NEXT I
  53. 620 REM-------------------------------
  54. 630 REM                BEWERTUNGSMODUL
  55. 640 REM-------------------------------
  56. 650 D1=VAL(LEFT$(TI$,2))*3600+VAL(MID$(TI$,3,2))*60+VAL(RIGHT$(TI$,2))
  57. 660 D2=D1-D0-N*5
  58. 670 PRINT"[147]"
  59. 680 PRINT"ANZAHL   RICHTIG   FALSCH"
  60. 690 PRINT"-------+---------+--------"
  61. 700 PRINTTAB(3);N;
  62. 710 PRINTTAB(12);R;
  63. 720 PRINTTAB(21);F
  64. 730 PRINT:PRINT
  65. 740 W = INT(1000*R/N)/10
  66. 750 PRINT"DAS SIND ";W;"% RICHTIGE ANTWORTEN"
  67. 760 PRINT:PRINT"IN";D2;"SEKUNDEN"
  68. 770 PRINT:PRINT
  69. 780 END
  70. 790 REM-------------------------------
  71. 800 REM                   ANZEIGEMODUL
  72. 810 REM-------------------------------
  73. 820 PRINT""
  74. 830 PRINT"ANZAHL   RICHTIG   FALSCH"
  75. 840 PRINT"-------+---------+--------"
  76. 850 PRINTTAB(3);I;
  77. 860 PRINTTAB(12);R;
  78. 870 PRINTTAB(21);F
  79. 880 X=5:GOSUB 1200
  80. 890 GOTO 610
  81. 900 REM-------------------------------
  82. 910 REM                 MULTIPLIKATION
  83. 920 REM-------------------------------
  84. 930 A=INT(9*RND(1)+3)
  85. 940 B=INT(18*RND(1)+2)
  86. 950 C=A*B:A$=" * "
  87. 960 RETURN
  88. 970 REM-------------------------------
  89. 980 REM                       ADDITION
  90. 990 REM-------------------------------
  91. 1000 A=INT(800*RND(1)+9)
  92. 1010 B=INT(200*RND(1)+1)
  93. 1020 C=A+B:A$=" + "
  94. 1030 RETURN
  95. 1040 REM-------------------------------
  96. 1050 REM                    SUBTRAKTION
  97. 1060 REM-------------------------------
  98. 1070 A=INT(999*RND(1)+9)
  99. 1080 B=INT(220*RND(1)+1)
  100. 1090 C=A-B:IFC<0THEN1070
  101. 1100 A$=" - "
  102. 1110 RETURN
  103. 1120 REM-------------------------------
  104. 1130 REM                       DIVISION
  105. 1140 REM-------------------------------
  106. 1150 A=INT(19*RND(1)+1)
  107. 1160 B=INT(7*RND(1)+3)
  108. 1170 C=A/B:IF(INT(C)<>C)OR(C=1)THEN 1150
  109. 1180 A$=" : ":RETURN
  110. 1190 REM-------------------------------
  111. 1200 REM                      ZEITMODUL
  112. 1210 REM-------------------------------
  113. 1220 X1=VAL(LEFT$(TI$,2))*3600+VAL(MID$(TI$,3,2))*60+VAL(RIGHT$(TI$,2))
  114. 1230 X2=VAL(LEFT$(TI$,2))*3600+VAL(MID$(TI$,3,2))*60+VAL(RIGHT$(TI$,2))
  115. 1240 IF(X2-X1)<X THEN 1230
  116. 1250 RETURN
  117. 1260 REM-------------------------------
  118. 1270 REM                      . + B = C
  119. 1280 REM-------------------------------
  120. 1290 PRINT"[147]"A$;B;" = ";C
  121. 1300 PRINT"";
  122. 1310 OPEN1,0
  123. 1320 INPUT#1,B$
  124. 1330 CLOSE1
  125. 1340 IF VAL(B$)=A THEN D=C
  126. 1350 RETURN
  127. 1360 REM -----------------------------
  128. 1370 REM                     A + . = C
  129. 1380 REM -----------------------------
  130. 1390 PRINT"[147]";A;A$;"     = ";C
  131. 1400 PRINT"";
  132. 1410 OPEN1,0
  133. 1420 INPUT#1,B$
  134. 1430 CLOSE1
  135. 1440 IF VAL(B$)=B THEN D=C
  136. 1450 RETURN
  137. 1460 REM -----------------------------
  138. 1470 REM                     A + B = .
  139. 1480 REM -----------------------------
  140. 1490 PRINT"[147]";A;A$;B;" = ";
  141. 1500 PRINT"";
  142. 1510 OPEN1,0
  143. 1520 INPUT#1,B$
  144. 1530 CLOSE1
  145. 1540 IF VAL(B$)=C THEN D=C
  146. 1550 RETURN
  147. 1560 REM ------------------------------
  148. 1570 REM                     C = . + B
  149. 1580 REM ------------------------------
  150. 1590 PRINT"[147]";C;" =    ";A$;B
  151. 1600 PRINT"";
  152. 1610 OPEN1,0
  153. 1620 INPUT#1,B$
  154. 1630 CLOSE1
  155. 1640 IF VAL(B$)=A THEN D=C
  156. 1650 RETURN
  157.